home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 37 / 64er_Magazin_Sonderheft_37_19xx_Markt__Technik_de_Disk_2_of_2_Side_B.d64 / listing 6.sprite (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  175b  |  13 lines
  1. 320 poke 2040,33
  2. 325 gosub 500
  3. 330 poke 2040,32
  4. 335 gosub 500
  5. 400 goto 320
  6. 500 bw=bw+1
  7. 510 bh=int(bw/256):bl=bw-bh*256
  8. 520 poke v+0,bl
  9. 530 poke v+16,bh
  10. 540 if bw>320 then bw=0
  11. 560 for w=0 to 50:next
  12. 600 return
  13.